home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / utilities / mpls_patch / install / install_mpls_patch < prev    next >
Encoding:
Text File  |  1996-09-16  |  23.6 KB  |  1,041 lines
  1. ;
  2. ; $VER: MPLS Patch Install v1.85 (27.08.96) Lejardinier Olivier
  3. ; Copyright © 1995-96 Lejardinier Olivier
  4. ; All Rights Reserved.
  5. ;
  6.  
  7. ;***************************************************************************;
  8.  
  9. ;
  10. ; English texts
  11. ;
  12.  
  13. (set #bad-amigados-version
  14. (cat "\n"
  15.      "Sorry, this program required AmigaDOS v2.0"
  16.      " or above (v37+)."
  17. ))
  18.  
  19. (set #choice-yes "Yes")
  20.  
  21. (set #choice-no  "No")
  22.  
  23. (set #choice-continue "Continue")
  24.  
  25. (set #ask-language-to-use
  26. (cat "\n"
  27.      "In which language do you want to use MPLS Patch ?"
  28.      "\n"
  29. ))
  30.  
  31. (set #english "English")
  32.  
  33. (set #french "French")
  34.  
  35. (set #installing-file
  36. (cat "\n"
  37.      "Installing '%s'"
  38.      "\n"
  39. ))
  40.  
  41. (set #destination-invalid
  42. (cat "\n"
  43.      "You can not use '%s' as destination !"
  44. ))
  45.  
  46. (set #install-intro
  47. (cat "\n"
  48.      "MPLS Patch v1.85 (27.08.96) - SHAREWARE"
  49.      "\n\n"
  50.      "- The (M)agic (P)icture (L)oader (S)ystem -"
  51.      "\n"
  52.      "Copyright © 1995-96 Lejardinier Olivier"
  53.      "\n"
  54.      "All Rights Reserved"
  55.      "\n\n"
  56.      "This program allows any application to handle new"
  57.      " file formats.                                   "
  58.      "\n\n\n"
  59.      "Please, read the (french, sorry) documentation to get"
  60.      " more informations.                                  "
  61. ))
  62.  
  63. (set #beginners-warning
  64. (cat "\n"
  65.      "- NOTE TO BEGINNERS -"
  66.      "\n\n"
  67.      "If you are not an expert with installation procedure,"
  68.      " please always answer 'Yes' or 'Continue' to questions"
  69.      " whose will be ask to you."
  70. ))
  71.  
  72. (set #ask-install-parts
  73. (cat "\n"
  74.      "Select items that you want to install :"
  75.      "\n"
  76. ))
  77.  
  78. (set #old-version-exists
  79. (cat "\n"
  80.      "A previous MPLS Patch version has been installed "
  81.      "in your system."
  82.      "\n\n"
  83.      "To install correctly this update you should used "
  84.      "the same directories than during the last installation"
  85. ))
  86.  
  87. (set #old-main-program-in-wbstartup
  88. (cat "\n"
  89.      "A previous MPLS Patch version of the main program "
  90.      "has been installed in directory 'SYS:WBStartup'."
  91.      "\n\n"
  92.      "Do you want to use this same directory as destination "
  93.      "for the new main program ?"
  94. ))
  95.  
  96. (set #ask-installing-in-wbstartup
  97. (cat "\n"
  98.      "Do you want to run MPLS Patch every time"
  99.      " you reboots your Amiga ?"
  100. ))
  101.  
  102. (set #old-version-path
  103. (cat "\n"
  104.      "A previous MPLS Patch version has been installed "
  105.      "into directory '%s'."
  106.      "\n\n"
  107.      "I suggest you to install this update into it."
  108. ))
  109.  
  110. (set #ask-patch-destination
  111. (cat "\n"
  112.      "Where do you want to install MPLS Patch ?"
  113.      "\n"
  114.      "(A directory named 'MPLS_Patch' will be created)"
  115.      "\n"
  116. ))
  117.  
  118. (set #unarchiving-main-program "Please wait, unarchiving main program...")
  119.  
  120. (set #installing-main-program
  121. (cat "\n"
  122.      "Installing main program"
  123.      "\n"
  124. ))
  125.  
  126. (set #remove-QUIET-brackets
  127. (cat "\n"
  128.      "To deactivate request 'Patch installed' "
  129.      "you should remove the brackets from the "
  130.      "QUIET tooltype."
  131. ))
  132.  
  133. (set #unarchiving-mpls_patch-library "Please wait, unarchiving 'mpls_patch.library'...")
  134.  
  135. (set #unarchiving-loaders-modules "Please wait, unarchiving loaders modules...")
  136.  
  137. (set #installing-loader-module
  138. (cat "\n"
  139.      "Installing '%s' loader module"
  140.      "\n"
  141. ))
  142.  
  143. (set #ask-others-files-dest
  144. (cat "\n"
  145.      "Where do you want to install others files ?"
  146.      "\n"
  147.      "(A directory named 'MPLS_Patch' will be created)"
  148.      "\n"
  149. ))
  150.  
  151. (set #unarchiving-language-files "Please wait, unarchiving language files...")
  152.  
  153. (set #installing-language-file
  154. (cat "\n"
  155.      "Installing language file"
  156.      "\n"
  157. ))
  158.  
  159. (set #old-config-exists
  160. (cat "\n"
  161.      "An old configuration file has been found :"
  162.      "\n"
  163. ))
  164.  
  165. (set #install-config-use-old "Use old.")
  166.  
  167. (set #install-config-new-delete-old "Install new, delete old.")
  168.  
  169. (set #install-config-new-backup-old "Install new, backup old.")
  170.  
  171. (set #old-config-renamed
  172. (cat "\n"
  173.      "Old configuration file has been renamed to :"
  174.      "\n\n"
  175.      "'ENVARC:MPLS_Patch.Prefs-Bak'"
  176. ))
  177.  
  178. (set #ask-cx_popkey
  179. (cat "\n"
  180.      "Hotkey to show controls panel :"
  181.      "\n"
  182. ))
  183.  
  184. (set #ask-cx_statekey
  185. (cat "\n"
  186.       "Hotkey to activate/deactivate patch :"
  187.       "\n"
  188. ))
  189.  
  190. (set #ask-tempdir_path
  191. (cat "\n"
  192.      "Select a temporary directory :"
  193.      "\n"
  194. ))
  195.  
  196. (set #ask-history-capacity
  197. (cat "\n"
  198.      "Enter history files maximal capacity :"
  199.      "\n"
  200. ))
  201.  
  202. (set #ask-install-prefs-program
  203. (cat "\n"
  204.      "Do you want to install the preferences editor program ?"
  205.      "\n\n"
  206.      "NOTE : This program needs MUI v3.3 or higher to run"
  207. ))
  208.  
  209. (set #ask-prefs-program-dest
  210. (cat "\n"
  211.      "Where do you want to install preferences editor program ?"
  212.      "\n"
  213. ))
  214.  
  215. (set #unarchiving-prefs-program "Please wait, unarchiving preferences editor program...")
  216.  
  217. (set #installing-prefs-program
  218. (cat "\n"
  219.      "Installing preferences editor program"
  220.      "\n"
  221. ))
  222.  
  223. (set #install-completed
  224. (cat "\n"
  225.      "To start MPLS Patch now, double-click on his icon in"
  226.      " directory '%s'"
  227.      "\n\n"
  228.      "IMPORTANT : If you are a registered user, do not forget"
  229.      " to install your keyfile before using MPLS Patch."
  230. ))
  231.  
  232. ;***************************************************************************;
  233.  
  234. ;
  235. ; French texts
  236. ;
  237.  
  238. (if (= @language "français")
  239. (
  240. (set #bad-amigados-version
  241. (cat "\n"
  242.      "Désolé, l'AmigaDOS 2.0 ou supérieur est nécessaire"
  243.      " pour utiliser ce programme"
  244. ))
  245.  
  246. (set #choice-yes "Oui")
  247.  
  248. (set #choice-no "Non")
  249.  
  250. (set #choice-continue "Continuer")
  251.  
  252. (set #ask-language-to-use
  253. (cat "\n"
  254.      "Dans quelle langue voulez-vous utiliser MPLS Patch ?"
  255.      "\n"
  256. ))
  257.  
  258. (set #english "Anglais")
  259.  
  260. (set #french "Français")
  261.  
  262. (set #installing-file
  263. (cat "\n"
  264.      "Installation de '%s'"
  265.      "\n"
  266. ))
  267.  
  268. (set #destination-invalid
  269. (cat "\n"
  270.      "Vous ne pouvez pas utiliser '%s' comme destination !"
  271. ))
  272.  
  273. (set #install-intro
  274. (cat "\n"
  275.      "MPLS Patch v1.85 (27.08.96) - SHAREWARE"
  276.      "\n\n"
  277.      "- The (M)agic (P)icture (L)oader (S)ystem -"
  278.      "\n"
  279.      "Copyright © 1995-96 Lejardinier Olivier"
  280.      "\n"
  281.      "All Rights Reserved"
  282.      "\n\n"
  283.      "Ce programme permet à n'importe quelle application de gérer"
  284.      " des nouveaux formats de fichiers.                   "
  285.      "\n\n\n"
  286.      "Consultez la documentation pour obtenir plus d'informations."
  287. ))
  288.  
  289. (set #beginners-warning
  290. (cat "\n"
  291.      "- NOTE AUX DEBUTANTS -"
  292.      "\n\n"
  293.      "Si vous n'êtes pas trés habitué aux procédures d'installation,"
  294.      " répondez 'Oui' ou 'Continuer' aux questions qui vous seront"
  295.      " posées."
  296. ))
  297.  
  298. (set #ask-install-parts
  299. (cat "\n"
  300.      "Sélectionnez les éléments que vous voulez installer :"
  301.      "\n"
  302. ))
  303.  
  304. (set #old-version-exists
  305. (cat "\n"
  306.      "Une précédente version de MPLS Patch a étét installé"
  307.      " dans votre système."
  308.      "\n\n"
  309.      "Pour installer correctement cette mise à jour, je vous"
  310.      " conseille d'utiliser les mêmes répertoire que ceux"
  311.      " qui ont été utilisé lors de cette précédente installation."
  312. ))
  313.  
  314. (set #old-main-program-in-wbstartup
  315. (cat "\n"
  316.      "Une précédente version du programme principal de MPLS Patch"
  317.      " a été trouvé dans le répertoire 'SYS:WBStartup'."
  318.      "\n\n"
  319.      "Voulez-vous utiliser ce même répertoire pour y installer cette"
  320.      " nouvelle version ?"
  321. ))
  322.  
  323. (set #ask-installing-in-wbstartup
  324. (cat "\n"
  325.      "Voulez-vous que MPLS Patch soit actif à chaque redémarrage"
  326.      " de votre Amiga ?"
  327. ))
  328.  
  329. (set #old-version-path
  330. (cat "\n"
  331.      "Une précédente version de MPLS Patch a été installé dans le"
  332.      " répertoire '%s'."
  333.      "\n\n"
  334.      "Je vous suggère d'y installer cette mise à jour."
  335. ))
  336.  
  337. (set #ask-patch-destination
  338. (cat "\n"
  339.      "Où voulez-vous installer MPLS Patch ?"
  340.      "\n"
  341.      "(un répertoire 'MPLS_Patch' y sera créé)"
  342.      "\n"
  343. ))
  344.  
  345. (set #unarchiving-main-program "Patientez SVP, désarchivage du programme principal...")
  346.  
  347. (set #installing-main-program
  348. (cat "\n"
  349.      "Installation du programme principal"
  350.      "\n"
  351. ))
  352.  
  353. (set #remove-QUIET-brackets
  354. (cat "\n"
  355.      "Pour désactiver la requête 'Patch installé'"
  356.      " vous devrez retirer les () autour du tooltype QUIET"
  357. ))
  358.  
  359. (set #unarchiving-mpls_patch-library "Patientez SVP, désarchivage de 'mpls_patch.library'...")
  360.  
  361. (set #installing-mpls_patch-library
  362. (cat "\n"
  363.      "Installation de 'mpls_patch.library'"
  364.      "\n"
  365. ))
  366.  
  367. (set #unarchiving-loaders-modules "Patientez SVP, désarchivage des modules de chargement...")
  368.  
  369. (set #installing-loader-module
  370. (cat "\n"
  371.      "Installation du module de chargement '%s'"
  372.      "\n"
  373. ))
  374.  
  375. (set #ask-others-files-dest
  376. (cat "\n"
  377.      "Où voulez-vous installer les autres fichiers ?"
  378.      "\n"
  379.      "(Un répertoire 'MPLS_Patch' y sera créé)"
  380.      "\n"
  381. ))
  382.  
  383. (set #unarchiving-language-files "Patientez SVP, désarchivage des fichiers de localisation...")
  384.  
  385. (set #installing-language-file
  386. (cat "\n"
  387.      "Installation du fichier de localisation"
  388.      "\n"
  389. ))
  390.  
  391. (set #old-config-exists
  392. (cat "\n"
  393.      "Un ancien fichier de configuration a été trouvé :"
  394.      "\n"
  395. ))
  396.  
  397. (set #install-config-use-old "Utiliser l'ancien.")
  398.  
  399. (set #install-config-new-delete-old "Installer le nouveau, effacer l'ancien.")
  400.  
  401. (set #install-config-new-backup-old "Installer le nouveau, sauvegarder l'ancien.")
  402.  
  403. (set #old-config-renamed
  404. (cat "\n"
  405.      "L'ancien fichier de configuration a été renommé en :"
  406.      "\n\n"
  407.      "'ENVARC:MPLS_Patch.Prefs-Bak'"
  408. ))
  409.  
  410. (set #ask-cx_popkey
  411. (cat "\n"
  412.      "Touche d'appel du panneau de contrôles :"
  413.      "\n"
  414. ))
  415.  
  416. (set #ask-cx_statekey
  417. (cat "\n"
  418.      "Touche d'activation/désactivation du patch :"
  419.      "\n"
  420. ))
  421.  
  422. (set #ask-tempdir_path
  423. (cat "\n"
  424.      "Sélectionnez un répertoire temporaire :"
  425.      "\n"
  426. ))
  427.  
  428. (set #ask-history-capacity
  429. (cat "\n"
  430.      "Entrez la capacité maximale de l'historique de fichiers :"
  431.      "\n"
  432. ))
  433.  
  434. (set #ask-install-prefs-program
  435. (cat "\n"
  436.      "Voulez-vous installer l'éditeur de préférences ?"
  437.      "\n\n"
  438.      "NOTE : Ce programme nécessite MUI v3.3 ou supérieur pour fonctionner"
  439. ))
  440.  
  441. (set #ask-prefs-program-dest
  442. (cat "\n"
  443.      "Où voulez-vous installer l'éditeur de préférences ?"
  444.      "\n"
  445. ))
  446.  
  447. (set #unarchiving-prefs-program "Patientez SVP, désarchivage de l'éditeur de préférences...")
  448.  
  449. (set #installing-prefs-program
  450. (cat "\n"
  451.      "Installation de l'éditeur de préférences"
  452.      "\n"
  453. ))
  454.  
  455. (set #install-completed
  456. (cat "\n"
  457.      "Pour démarrer MPLS Patch maintenant, double-clickez sur son icône dans"
  458.      " le répertoire '%s'"
  459.      "\n\n"
  460.      "IMPORTANT : Si vous êtes un utilisateur enregistré de MPLS Patch,"
  461.      " n'oubliez pas d'installer votre fichier clé, si cela n'est pas déjà fait."
  462. ))
  463.  
  464. ))
  465.  
  466. ;***************************************************************************;
  467.  
  468.  (set amigados-version (/ (getversion) 65536))
  469.  
  470.  (if (< amigados-version 37)
  471.   (abort #bad-amigados-version)
  472.  )
  473.  
  474.  (set cpu-version (database "cpu"))
  475.  
  476.  (if (>= cpu-version 68020)
  477.   (set cpu-version "68020")
  478. ;(else)
  479.   (set cpu-version 68000)
  480.  )
  481.  
  482.  (complete 0)
  483.  
  484.  (message #install-intro)
  485.  
  486.  (message #beginners-warning)
  487.  
  488.  (set install-parts
  489.   (askoptions
  490.    (prompt #ask-install-parts)
  491.    (help @askoptions-help)
  492.    (choices "MPLS Patch v1.85"
  493.             "MPLS Patch Prefs v1.45"
  494.    )
  495.    (default %11)
  496.   )
  497.  )
  498.  
  499.  (complete 3)
  500.  
  501.  (if (<> install-parts 0)
  502.   (
  503.    (set language 0)
  504.  
  505.    (if (> amigados-version 37)
  506.     (set language
  507.      (askchoice
  508.       (prompt #ask-language-to-use)
  509.       (help @askchoice-help)
  510.       (choices #english
  511.                #french
  512.       )
  513.       (if (= @language "english")
  514.        (default 0)
  515.      ;(else)
  516.        (default 1)
  517.       )
  518.      )
  519.     )
  520.    )
  521.  
  522.    (set @language
  523.     (select language "english"
  524.                      "français"
  525.     )
  526.    )
  527.  
  528.    (complete 6)
  529.  
  530.    (run "C:Copy /LhEx RAM: QUIET")
  531.  
  532.    (if (IN install-parts 0)
  533.     (
  534.      (makedir "LIBS:mpls_patch")
  535.      (makedir "LIBS:mpls_patch/loaders")
  536.  
  537.      (if (> amigados-version 37)
  538.       (
  539.        (makedir "LOCALE:catalogs")
  540.  
  541.        (if (<> @language "english")
  542.         (
  543.          (makedir (tackon (tackon "LOCALE:catalogs" @language) "mpls_patch"))
  544.          (makedir (tackon (tackon "LOCALE:catalogs" @language) "mpls_patch/loaders"))
  545.         )
  546.        )
  547.       )
  548.     ;(else)
  549.       (run "C:Assign LOCALE: SYS:")
  550.      )
  551.  
  552.      (makedir "LOCALE:help")
  553.      (makedir (tackon "LOCALE:help" @language))
  554.  
  555.      (complete 10)
  556.  
  557. ;---------------------------------------------------------------------------;
  558.  
  559.      (if (exists "LIBS:mpls_patch/mpls_patch.keyfile")
  560.       (message #old-version-exists)
  561.      )
  562.  
  563. ;---------------------------------------------------------------------------;
  564.  
  565.      (run "C:Delete >NIL: SYS:Tools/MPLS_Patch/#? ALL FORCE QUIET")
  566.  
  567. ;---------------------------------------------------------------------------;
  568.  
  569.      (if (askbool
  570.           (if (exists "SYS:WBStartup/MPLS_Patch")
  571.            (prompt #old-main-program-in-wbstartup)
  572.          ;(else)
  573.            (prompt #ask-installing-in-wbstartup)
  574.           )
  575.           (help @askbool-help)
  576.           (choices #choice-yes
  577.                    #choice-no
  578.           )
  579.          )
  580.       (set patch-dest "SYS:WBStartup")
  581.     ;(else)
  582.       (
  583.        (set patch-dest "SYS:Tools")
  584.  
  585.        (if (exists (tackon patch-dest "MPLS_Patch"))
  586.         (message (#old-version-path (patch-dest)))
  587.        )
  588.  
  589.        (set patch-dest
  590.         (askdir
  591.          (prompt #ask-patch-destination)
  592.          (help  @askdir-help)
  593.          (default patch-dest)
  594.         )
  595.        )
  596.  
  597.        (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  598.         (abort (#destination-invalid patch-dest))
  599.       ;(else)
  600.         (set patch-dest (tackon patch-dest "MPLS_Patch"))
  601.        )
  602.  
  603.       )
  604.      )
  605.  
  606.      (complete 13)
  607.  
  608. ;---------------------------------------------------------------------------;
  609.  
  610.      (working #unarchiving-main-program)
  611.  
  612.      (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Program.LHA")
  613.  
  614.      (copyfiles
  615.       (prompt #installing-main-program)
  616.       (help @copyfiles-help)
  617.       (source (tackon "T:patch" cpu-version))
  618.       (choices "MPLS_Patch" "/MPLS_Patch.info")
  619.       (dest patch-dest)
  620.       (confirm)
  621.       (optional "oknodelete" "force")
  622.      )
  623.  
  624.      (run "C:Delete >NIL: T:patch ALL FORCE QUIET")
  625.  
  626.      (complete 16)
  627.  
  628. ;---------------------------------------------------------------------------;
  629.  
  630.      (copyfiles
  631.       (source "/Install_Datas/MPLS_Patch.Env")
  632.       (dest "ENVARC:")
  633.       (nogauge)
  634.       (optional "oknodelete" "force")
  635.      )
  636.  
  637.      (complete 20)
  638.  
  639. ;---------------------------------------------------------------------------;
  640.  
  641.      (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  642.       (set tooltype-quiet "QUIET")
  643.     ;(else)
  644.       (
  645.        (message #remove-QUIET-brackets)
  646.        (set tooltype-quiet "(QUIET)")
  647.       )
  648.      )
  649.  
  650.      (tooltype
  651.       (dest (tackon patch-dest "MPLS_Patch"))
  652.       (settooltype tooltype-quiet "")
  653.      )
  654.  
  655.      (complete 25)
  656.  
  657. ;---------------------------------------------------------------------------;
  658.  
  659.      (if (> amigados-version 37)
  660.       (if (<> language 0)
  661.        (
  662.         (working #unarchiving-language-files)
  663.  
  664.         (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Catalogs.LHA")
  665.  
  666.         (copyfiles
  667.          (prompt (#installing-language-file "mpls_patch.catalog"))
  668.          (help @copyfiles-help)
  669.          (source (tackon "T:catalogs" @language))
  670.          (choices "mpls_patch.catalog")
  671.          (dest (tackon (tackon "LOCALE:catalogs" @language) "mpls_patch"))
  672.          (confirm)
  673.          (optional "oknodelete" "force")
  674.         )
  675.  
  676.         (run "C:Delete >NIL: T:catalogs ALL FORCE QUIET")
  677.        )
  678.      ;(else)
  679.        (run "C:Delete >NIL: LOCALE:catalogs/français/mpls_patch ALL FORCE QUIET")
  680.       )
  681.      )
  682.  
  683.      (complete 30)
  684.  
  685. ;---------------------------------------------------------------------------;
  686.  
  687.      (working #unarchiving-mpls_patch-library)
  688.  
  689.      (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Libraries.LHA")
  690.  
  691.      (copylib
  692.       (prompt #installing-mpls_patch-library)
  693.       (help @copylib-help)
  694.       (source (tackon "T:libraries" (tackon cpu-version "mpls_patch.library")))
  695.       (dest "LIBS:mpls_patch")
  696.       (confirm)
  697.       (optional "oknodelete" "force")
  698.      )
  699.  
  700.      (run "C:Delete >NIL: T:libraries ALL FORCE QUIET")
  701.  
  702.      (complete 40)
  703.  
  704. ;---------------------------------------------------------------------------;
  705.  
  706.      (working #unarchiving-loaders-modules)
  707.  
  708.      (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Loaders.LHA")
  709.  
  710.      (foreach (tackon "T:loaders" cpu-version) "#?.loader"
  711.       (copylib
  712.        (prompt (#installing-loader-module @each-name))
  713.        (help @copylib-help)
  714.        (source (tackon "T:loaders" (tackon cpu-version @each-name)))
  715.        (dest "LIBS:mpls_patch/loaders")
  716.        (confirm)
  717.        (optional "oknodelete" "force")
  718.       )
  719.      )
  720.  
  721.      (run "C:Delete >NIL: T:loaders ALL FORCE QUIET")
  722.  
  723.      (complete 50)
  724.  
  725. ;---------------------------------------------------------------------------;
  726.  
  727.      (if (AND (> amigados-version 37) (<> language 0))
  728.       (
  729.        (working #unarchiving-languages-files)
  730.  
  731.        (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Loaders_Catalogs.LHA")
  732.  
  733.        (foreach (tackon "T:catalogs" @language) "#?.catalog"
  734.         (copyfiles
  735.          (prompt (#installing-language-file @each-name))
  736.          (help @copyfiles-help)
  737.          (source (tackon "T:catalogs" @language))
  738.          (choices @each-name)
  739.          (dest (tackon (tackon "LOCALE:catalogs" @language) "mpls_patch/loaders"))
  740.          (confirm)
  741.          (optional "oknodelete" "force")
  742.         )
  743.        )
  744.  
  745.        (run "C:Delete >NIL: T:catalogs ALL FORCE QUIET")
  746.       )
  747.      )
  748.  
  749.      (complete 60)
  750.  
  751. ;---------------------------------------------------------------------------;
  752.  
  753.      (if (OR (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  754.              (<> (fileonly patch-dest) "MPLS_Patch"))
  755.       (
  756.        (if (exists "SYS:Tools/MPLS_Patch")
  757.         (message (#old-version-path "SYS:Tools"))
  758.        )
  759.  
  760.        (set otherfiles-dest
  761.         (askdir
  762.          (prompt #ask-others-files-dest)
  763.          (help @askdir-help)
  764.          (default "SYS:Tools")
  765.         )
  766.        )
  767.  
  768.        (set otherfiles-dest (tackon otherfiles-dest "MPLS_Patch"))
  769.       )
  770.     ;(else)
  771.       (set otherfiles-dest patch-dest)
  772.      )
  773.  
  774.      (if (= (expandpath otherfiles-dest) (expandpath "SYS:WBStartup"))
  775.       (abort (#destination-invalid otherfiles-dest))
  776.      )
  777.  
  778.      (complete 63)
  779.  
  780.      (copyfiles
  781.       (source "//")
  782.       (choices "Description"
  783.                "MPLS_Patch.Guide"
  784.                "Shareware"
  785.                "Registration"
  786.                "DataTypes.Lisez-Moi"
  787.                "MUI.ReadMe"
  788.                "Bugs_Report"
  789.                "Print.info"
  790.                "Preview")
  791.       (dest otherfiles-dest)
  792.       (infos)
  793.       (noposition)
  794.       (optional "oknodelete" "force")
  795.      )
  796.  
  797.      (complete 66)
  798.  
  799.      (copyfiles
  800.       (source "//Help/English/MPLS_Patch.Help")
  801.       (dest "LOCALE:help/english")
  802.       (optional "oknodelete" "force")
  803.      )
  804.  
  805.      (copyfiles
  806.       (source "//Help/Français/MPLS_Patch.Help")
  807.       (dest "LOCALE:help/français")
  808.       (optional "oknodelete" "force")
  809.      )
  810.  
  811.      (complete 70)
  812.  
  813. ;---------------------------------------------------------------------------;
  814.  
  815.      (if (exists "SYS:Tools/MPLS_Patch.Cfg")
  816.       (
  817.        (rename "SYS:Tools/MPLS_Patch.Cfg" "ENVARC:MPLS_Patch.Prefs")
  818.        (run "C:Delete >NIL: SYS:Tools/MPLS_Patch.Cfg#? FORCE QUIET")
  819.       )
  820.      )
  821.  
  822.      (if (exists "ENVARC:MPLS_Patch.Prefs")
  823.       (set copy-cfg
  824.        (askchoice
  825.         (prompt #old-config-exists)
  826.         (help @askchoice-help)
  827.         (choices #install-config-use-old
  828.                  #install-config-new-delete-old
  829.                  #install-config-new-backup-old
  830.         )
  831.         (default 0)
  832.        )
  833.       )
  834.     ;(else)
  835.       (set copy-cfg 1)
  836.      )
  837.  
  838.      (complete 75)
  839.  
  840.      (if (not (= copy-cfg 0))
  841.       (
  842.        (if (= copy-cfg 1)
  843.         (run "C:Delete >NIL: ENVARC:MPLS_Patch.Prefs-Bak#? FORCE QUIET")
  844.       ;(else)
  845.         (
  846.          (run "C:Delete >NIL: ENVARC:MPLS_Patch.Prefs-Bak#? FORCE QUIET")
  847.          (rename "ENVARC:MPLS_Patch.Prefs" "ENVARC:MPLS_Patch.Prefs-Bak")
  848.          (message #old-config-renamed)
  849.         )
  850.        )
  851.  
  852.        (run "RAM:LhEx -fqwT: x /Install_Datas/Patch_Config.LHA")
  853.  
  854.        (copyfiles
  855.         (source "T:config")
  856.         (choices "MPLS_Patch.Prefs" "MPLS_Patch_Default.Prefs")
  857.         (dest "ENVARC:")
  858.         (infos)
  859.         (noposition)
  860.         (optional "oknodelete" "force")
  861.        )
  862.  
  863.        (run "C:Delete >NIL: T:config ALL FORCE QUIET")
  864.       )
  865.      )
  866.  
  867.      (complete 80)
  868.  
  869. ;---------------------------------------------------------------------------;
  870.  
  871.      (set tooltype-cx_popkey
  872.       (askstring
  873.        (prompt #ask-cx_popkey)
  874.        (help @askstring-help)
  875.        (default "control alt m")
  876.       )
  877.      )
  878.  
  879.      (tooltype
  880.       (dest (tackon patch-dest "MPLS_Patch"))
  881.       (settooltype "CX_POPKEY" tooltype-cx_popkey)
  882.      )
  883.  
  884.      (complete 82)
  885.  
  886. ;---------------------------------------------------------------------------;
  887.  
  888.      (set tooltype-cx_statekey
  889.       (askstring
  890.        (prompt #ask-cx_statekey)
  891.        (help @askstring-help)
  892.        (default "control alt d")
  893.       )
  894.      )
  895.  
  896.      (tooltype
  897.       (dest (tackon patch-dest "MPLS_Patch"))
  898.       (settooltype "CX_STATEKEY" tooltype-cx_statekey)
  899.      )
  900.  
  901.      (complete 84)
  902.  
  903. ;---------------------------------------------------------------------------;
  904.  
  905.      (set tooltype-tempdir_path
  906.       (askdir
  907.        (prompt #ask-tempdir_path)
  908.        (help @askdir-help)
  909.        (default "T:")
  910.       )
  911.      )
  912.  
  913.      (tooltype
  914.       (dest (tackon patch-dest "MPLS_Patch"))
  915.       (settooltype "TEMPDIR_PATH" tooltype-tempdir_path)
  916.      )
  917.  
  918.      (complete 86)
  919.  
  920. ;---------------------------------------------------------------------------;
  921.  
  922.      (set tooltype-history
  923.       (asknumber
  924.        (prompt #ask-history-capacity)
  925.        (help @asknumber-help)
  926.        (range 1 999)
  927.        (default 10)
  928.       )
  929.      )
  930.  
  931.      (tooltype
  932.       (dest (tackon patch-dest "MPLS_Patch"))
  933.       (settooltype "HISTORY" ("%lu" tooltype-history))
  934.      )
  935.  
  936.      (complete 88)
  937.  
  938. ;---------------------------------------------------------------------------;
  939.  
  940.      (set @default-dest otherfiles-dest)
  941.     )
  942.    )
  943.  
  944. ;***************************************************************************;
  945.  
  946.    (if (IN install-parts 1)
  947.     (
  948.      (if (askbool
  949.           (prompt #ask-install-prefs-program)
  950.           (help @askbool-help)
  951.           (choices #choice-yes
  952.                    #choice-no
  953.           )
  954.          )
  955.       (
  956.        (set prefs-dest
  957.         (askdir
  958.          (prompt #ask-prefs-program-dest)
  959.          (help @askdir)
  960.          (default "SYS:Prefs")
  961.         )
  962.        )
  963.  
  964.        (if (= (expandpath prefs-dest) (expandpath "SYS:WBStartup"))
  965.         (abort #destination-invalid)
  966.        )
  967.  
  968.        (complete 89)
  969.  
  970. ;---------------------------------------------------------------------------;
  971.  
  972.        (working #unarchiving-prefs-program)
  973.  
  974.        (run "RAM:LhEx -fqwT: x /Install_Datas/Prefs_Program.LHA")
  975.  
  976.        (copyfiles
  977.         (prompt #installing-prefs-program)
  978.         (help @copyfiles-help)
  979.         (source (tackon "T:prefs" cpu-version))
  980.         (choices "MPLS_Patch_Prefs" "/MPLS_Patch_Prefs.info")
  981.         (dest prefs-dest)
  982.         (confirm)
  983.         (optional "oknodelete" "force")
  984.        )
  985.  
  986.        (run "C:Delete >NIL: T:prefs ALL FORCE QUIET")
  987.  
  988.        (complete 90)
  989.       )
  990.      )
  991.  
  992. ;---------------------------------------------------------------------------;
  993.  
  994.      (if (AND (> amigados-version 37) (<> language 0))
  995.       (
  996.        (working #unarchiving-language-files)
  997.  
  998.        (run "RAM:LhEx -fqwT: x /Install_Datas/Prefs_Catalogs.LHA")
  999.  
  1000.        (copyfiles
  1001.         (prompt (#installing-language-file "mpls_patch_prefs.catalog"))
  1002.         (help @copyfiles-help)
  1003.         (source (tackon "T:catalogs" @language))
  1004.         (choices "mpls_patch_prefs.catalog")
  1005.         (dest (tackon (tackon "LOCALE:catalogs" @language) "mpls_patch"))
  1006.         (confirm)
  1007.         (optional "oknodelete" "force")
  1008.        )
  1009.  
  1010.        (run "C:Delete >NIL: T:catalogs ALL FORCE QUIET")
  1011.       )
  1012.      )
  1013.  
  1014.      (complete 95)
  1015.  
  1016. ;---------------------------------------------------------------------------;
  1017.  
  1018.      (if (NOT (IN install-parts 0))
  1019.       (set @default-dest prefs-dest)
  1020.      )
  1021.  
  1022.     )
  1023.    )
  1024.  
  1025. ;***************************************************************************;
  1026.  
  1027.    (complete 100)
  1028.  
  1029.    (if (IN install-parts 0)
  1030.     (message (#install-completed patch-dest))
  1031.    )
  1032.  
  1033.    (run "C:Delete >NIL: RAM:LhEx FORCE QUIET")
  1034.  
  1035.    (exit)
  1036.   )
  1037. ;(else)
  1038.   (abort #install-aborted)
  1039.  )
  1040.  
  1041.